home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / uae-0_64.lha / uae-0.6.4 / src / xui.c < prev    next >
C/C++ Source or Header  |  1996-09-03  |  4KB  |  210 lines
  1.  /* 
  2.   * UAE - The Un*x Amiga Emulator
  3.   * 
  4.   * Interface to the Tcl/Tk GUI
  5.   * 
  6.   * Copyright 1996 Bernd Schmidt
  7.   */
  8.  
  9. #include "sysconfig.h"
  10. #include "sysdeps.h"
  11. #include <signal.h>
  12.  
  13. #include "config.h"
  14. #include "options.h"
  15. #include "memory.h"
  16. #include "custom.h"
  17. #include "newcpu.h"
  18. #include "disk.h"
  19. #include "gui.h"
  20.  
  21. static int inpipe, outpipe;
  22. static char *child_argv[4];
  23. static char filename1[80];
  24. static char filename2[80];
  25. static int made_file = 0;
  26. static struct stat stbuf;
  27. static pid_t child_pid;
  28. static int child_died = 0;
  29.  
  30. int quit_program;
  31.  
  32. static void sigchldhandler(int foo)
  33. {
  34.     child_died = 1;
  35. }
  36.  
  37. int gui_init(void)
  38. {
  39.     struct timeval tv;
  40.     int result;
  41.     
  42.     quit_program = 0;
  43.  
  44.     gettimeofday(&tv, NULL);
  45.     sprintf(filename1, "/tmp/uaea%d", tv.tv_sec * 1000 + tv.tv_usec / 1000);
  46.     result = mknod (filename1, 0600 | S_IFIFO, 0);
  47.     if (result < 0)
  48.     return result;
  49.     made_file = 1;
  50.     
  51.     sprintf(filename2, "/tmp/uaeb%d", tv.tv_sec * 1000 + tv.tv_usec / 1000);
  52.     result = mknod (filename2, 0600 | S_IFIFO, 0);
  53.     if (result < 0)
  54.     return result;
  55.     made_file = 2;
  56.     
  57.     inpipe = open (filename1, O_RDONLY|O_NONBLOCK);
  58.     if (inpipe < 0)
  59.     return inpipe;
  60.     
  61.     /* Why doesn't O_WRONLY work? */
  62.     outpipe = open (filename2, O_RDWR);
  63.     if (outpipe < 0)
  64.     return outpipe;
  65.     
  66.     fstat (inpipe, &stbuf);
  67.     child_pid = fork();
  68.     if (child_pid < 0)
  69.     return child_pid;
  70.     if (child_pid > 0) {
  71.     fd_set fs;
  72.     printf("Waiting for GUI process to start...\n");
  73.     FD_ZERO(&fs);
  74.     FD_SET(inpipe, &fs);
  75.     signal(SIGCHLD, sigchldhandler);
  76.     result = select(inpipe+1, &fs, NULL, NULL, NULL);
  77.     if (result < 0) {
  78.         kill(child_pid, SIGTERM);
  79.         return -1;
  80.     } else {
  81.         char buffer[20];
  82.         fstat (inpipe, &stbuf);
  83.         if (stbuf.st_size != strlen("Startup")+1) {
  84.         kill(child_pid, SIGTERM);
  85.         return -1;
  86.         }
  87.         read (inpipe, buffer, 8);
  88.         if (strncmp("Startup\n", buffer, 8) != 0) {
  89.         kill(child_pid, SIGTERM);
  90.         return -1;
  91.         }
  92.     }
  93.     if (made_file > 0)
  94.         unlink(filename1);
  95.     if (made_file > 1)
  96.         unlink(filename2);
  97.     made_file = 0;
  98.     printf("OK.\n");
  99.     return 0;
  100.     }
  101.     /* FIXME: how can I prevent that the child exits when I hit ^C in the
  102.      * shell window? */
  103.     child_argv[0] = "uae-ui.tk";
  104.     child_argv[1] = my_strdup(filename1);
  105.     child_argv[2] = my_strdup(filename2);
  106.     child_argv[3] = NULL;
  107.     execvp("uae-ui", child_argv);
  108.     /* Shouldn't get here */
  109.     exit(0);
  110.  
  111. }
  112.  
  113. void gui_exit(void)
  114. {
  115.     if (made_file > 0)
  116.     unlink(filename1);
  117.     if (made_file > 1)
  118.     unlink(filename2);
  119.     if (inpipe >= 0)
  120.     close(inpipe);
  121.     if (outpipe >= 0)
  122.     close(outpipe);
  123.     if (child_pid)
  124.     kill(child_pid, SIGTERM);
  125. }
  126.  
  127. void gui_led(int led, int on)
  128. {
  129.     char line[80];
  130.     
  131.     if (child_died || no_gui)
  132.     return;
  133.     
  134.     sprintf(line, "%s %d\n", led == 0 ? "power" : "driveled", on);
  135.     write(outpipe, line, strlen(line));
  136.     if (led > 0) {
  137.     sprintf(line, "%d\n", led-1);
  138.     write(outpipe, line, strlen (line));
  139.     }
  140. }
  141.  
  142. void gui_filename(int num, char *name)
  143. {
  144.     char line[80];
  145.  
  146.     if (child_died || no_gui)
  147.     return;
  148.  
  149.     sprintf(line, "drivename\n");
  150.     write(outpipe, line, strlen(line));
  151.     sprintf(line, "%d\n", num);
  152.     write(outpipe, line, strlen(line));
  153.     sprintf(line, "%s\n", name);
  154.     write(outpipe, line, strlen(line));
  155. }
  156.  
  157. static void getline(char *p)
  158. {
  159.     int cnt = 80;
  160.     char buf;
  161.     do {
  162.     read(inpipe, &buf, 1);
  163.     *p++ = buf;
  164.     } while (--cnt && buf != '\n');
  165.     *(p-1) = 0;
  166. }
  167.  
  168. void gui_handle_events(void)
  169. {
  170.     char command[100];
  171.     off_t oldsize = stbuf.st_size;
  172.     
  173.     if (child_died || no_gui)
  174.     return;
  175.  
  176.     fstat (inpipe, &stbuf);
  177.     if (stbuf.st_size > oldsize) {
  178.     getline(command);
  179.     if (strcmp (command, "eject") == 0) {
  180.         int drive;
  181.         getline(command);
  182.         drive = atoi(command);
  183.         disk_eject (drive);
  184.     } else if (strcmp (command, "insert") == 0) {
  185.         int drive;
  186.         getline(command);
  187.         drive = atoi(command);
  188.         if (disk_empty(drive)) {
  189.         fd_set fs;
  190.         FD_ZERO(&fs);
  191.         FD_SET(inpipe, &fs);
  192.         write(outpipe, "ok\n", 3);
  193.         select(inpipe+1, &fs, NULL, NULL, NULL);
  194.         getline(command);
  195.         disk_insert (drive, command);
  196.         } else
  197.         write(outpipe, "no\n", 3);
  198.     } else if (strcmp (command, "debug") == 0) {
  199.         activate_debugger();
  200.     } else if (strcmp (command, "bye") == 0) {
  201.         broken_in = 1;
  202.         regs.spcflags |= SPCFLAG_BRK;
  203.         quit_program = 1;
  204.     } else if (strcmp (command, "reset") == 0) {
  205.         m68k_reset();
  206.     }
  207.  
  208.     }
  209. }
  210.